home *** CD-ROM | disk | FTP | other *** search
/ Sky at Night 2006 September / SAN CD 9-2006 CD-ROM 16.iso / pc / Software / Network Telescope Control / NTC-Setup.Exe / Source / ntc_ciel_client_button.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2006-03-24  |  1.6 KB  |  82 lines
  1. unit ntc_ciel_client_button;
  2. {
  3.     Copyright (C) 2004 - 2006 Andrew Sprott
  4.  
  5.     http://astronomy.crysania.co.uk
  6.     astro@trefach.co.uk
  7.  
  8.     This program is free software; you can redistribute it and/or
  9.     modify it under the terms of the GNU General Public License
  10.     as published by the Free Software Foundation; either version 2
  11.     of the License, or (at your option) any later version.
  12.  
  13.     This program is distributed in the hope that it will be useful,
  14.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  15.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  16.     GNU General Public License for more details.
  17.  
  18.     You should have received a copy of the GNU General Public License
  19.     along with this program; if not, write to the Free Software
  20.     Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  21. }
  22.  
  23. interface
  24.  
  25. uses
  26.     SysUtils,
  27.     controls,
  28.     buttons,
  29.     classes;
  30.  
  31. const
  32.     s_no_object=0;
  33.     s_info=1;
  34.     s_focus=2;
  35.     s_about=3;
  36.     s_object=4;
  37.     s_search=5;
  38.     s_control=6;
  39.     s_network=7;
  40.     s_tracking=8;
  41.     s_observer=9;
  42.  
  43. type
  44.     scope_button_type=integer;
  45.  
  46.     tscope_button=class(tbitbtn)
  47.  
  48.         constructor create(
  49.             aowner:tcomponent); override;
  50.  
  51.     private
  52.         { private declarations }
  53.     public
  54.         { Public declarations }
  55.         control_type:scope_button_type;
  56.         button_hidden,
  57.         button_stuck:boolean;
  58.     end;
  59.  
  60. var
  61.     current_button:tscope_button;
  62.  
  63. implementation
  64.  
  65. uses
  66.     ntc_ciel_client_form;
  67.  
  68.     { -------------
  69.         form handling
  70.         ------------- }
  71.  
  72. constructor tscope_button.create(
  73.     aowner:tcomponent);
  74. begin
  75.     inherited create(aowner);
  76.     control_type:=s_no_object;
  77.     button_hidden:=true;
  78.     button_stuck:=false;
  79. end;
  80.  
  81. end.
  82.